home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0562.ZIP / ADDPATH.BAS < prev    next >
BASIC Source File  |  1987-03-29  |  335b  |  13 lines
  1. 10 OPEN "addpath.dat" FOR INPUT AS 1
  2. 20 LINE INPUT #1, A$
  3. 30 IF A$="No Path" THEN A$="PATH="
  4. 40 OPEN "addpat.bat" FOR OUTPUT AS 2
  5. 50 PRINT "Setting "+A$+";"+ENVIRON$("PAT")
  6. 60 PRINT #2, "SET "+A$+";"+ENVIRON$("PAT")
  7. 70 PRINT #2, "SET PATX=PAT"
  8. 80 PRINT #2, "ERASE ADDPATH.DAT"
  9. 90 PRINT #2, "ADDPATH"
  10. 100 CLOSE
  11. 110 SYSTEM
  12. 
  13.